home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / unixport / sys_kcl.c < prev   
C/C++ Source or Header  |  1987-06-04  |  8KB  |  204 lines
  1. #include "../h/include.h"
  2.  
  3. static object fasl_data;
  4.  
  5. init_init()
  6. {
  7.     enter_mark_origin(&fasl_data);
  8.     fasl_data = Cnil;
  9.  
  10.     load("../lsp/export.lsp");
  11.     fasl_data = read_fasl_data("../lsp/defmacro.o");
  12.     init_defmacro(NULL, 0, fasl_data);
  13.     fasl_data = read_fasl_data("../lsp/evalmacros.o");
  14.     init_evalmacros(NULL, 0, fasl_data);
  15.     fasl_data = read_fasl_data("../lsp/top.o");
  16.     init_top(NULL, 0, fasl_data);
  17.     fasl_data = read_fasl_data("../lsp/module.o");
  18.     init_module(NULL, 0, fasl_data);
  19.     load("../lsp/autoload.lsp");
  20. }
  21.  
  22. init_system()
  23. {
  24.     printf("Initializing predlib...  ");  fflush(stdout);
  25.     fasl_data = read_fasl_data("../lsp/predlib.o");
  26.     init_predlib(NULL, 0, fasl_data);
  27.     printf("\n");  fflush(stdout);
  28.     printf("Initializing setf...  ");  fflush(stdout);
  29.     fasl_data = read_fasl_data("../lsp/setf.o");
  30.     init_setf(NULL, 0, fasl_data);
  31.     printf("\n");  fflush(stdout);
  32.     printf("Initializing arraylib...  ");  fflush(stdout);
  33.     fasl_data = read_fasl_data("../lsp/arraylib.o");
  34.     init_arraylib(NULL, 0, fasl_data);
  35.     printf("\n");  fflush(stdout);
  36.     printf("Initializing assert...  ");  fflush(stdout);
  37.     fasl_data = read_fasl_data("../lsp/assert.o");
  38.     init_assert(NULL, 0, fasl_data);
  39.     printf("\n");  fflush(stdout);
  40.     printf("Initializing defstruct...  ");  fflush(stdout);
  41.     fasl_data = read_fasl_data("../lsp/defstruct.o");
  42.     init_defstruct(NULL, 0, fasl_data);
  43.     printf("\n");  fflush(stdout);
  44.     printf("Initializing describe...  ");  fflush(stdout);
  45.     fasl_data = read_fasl_data("../lsp/describe.o");
  46.     init_describe(NULL, 0, fasl_data);
  47.     printf("\n");  fflush(stdout);
  48.     printf("Initializing iolib...  ");  fflush(stdout);
  49.     fasl_data = read_fasl_data("../lsp/iolib.o");
  50.     init_iolib(NULL, 0, fasl_data);
  51.     printf("\n");  fflush(stdout);
  52.     printf("Initializing listlib...  ");  fflush(stdout);
  53.     fasl_data = read_fasl_data("../lsp/listlib.o");
  54.     init_listlib(NULL, 0, fasl_data);
  55.     printf("\n");  fflush(stdout);
  56.     printf("Initializing mislib...  ");  fflush(stdout);
  57.     fasl_data = read_fasl_data("../lsp/mislib.o");
  58.     init_mislib(NULL, 0, fasl_data);
  59.     printf("\n");  fflush(stdout);
  60.     printf("Initializing numlib...  ");  fflush(stdout);
  61.     fasl_data = read_fasl_data("../lsp/numlib.o");
  62.     init_numlib(NULL, 0, fasl_data);
  63.     printf("\n");  fflush(stdout);
  64.     printf("Initializing packlib...  ");  fflush(stdout);
  65.     fasl_data = read_fasl_data("../lsp/packlib.o");
  66.     init_packlib(NULL, 0, fasl_data);
  67.     printf("\n");  fflush(stdout);
  68.     printf("Initializing seq...  ");  fflush(stdout);
  69.     fasl_data = read_fasl_data("../lsp/seq.o");
  70.     init_seq(NULL, 0, fasl_data);
  71.     printf("\n");  fflush(stdout);
  72.     printf("Initializing seqlib...  ");  fflush(stdout);
  73.     fasl_data = read_fasl_data("../lsp/seqlib.o");
  74.     init_seqlib(NULL, 0, fasl_data);
  75.     printf("\n");  fflush(stdout);
  76.     printf("Initializing trace...  ");  fflush(stdout);
  77.     fasl_data = read_fasl_data("../lsp/trace.o");
  78.     init_trace(NULL, 0, fasl_data);
  79.     printf("\n");  fflush(stdout);
  80.  
  81.     printf("Initializing cmpinline...  ");  fflush(stdout);
  82.     Vpackage->s.s_dbind = user_package;
  83.     fasl_data = read_fasl_data("../cmpnew/cmpinline.o");
  84.     init_cmpinline(NULL, 0, fasl_data);
  85.     printf("\n");  fflush(stdout);
  86.     printf("Initializing cmputil...  ");  fflush(stdout);
  87.     Vpackage->s.s_dbind = user_package;
  88.     fasl_data = read_fasl_data("../cmpnew/cmputil.o");
  89.     init_cmputil(NULL, 0, fasl_data);
  90.     printf("\n");  fflush(stdout);
  91.     printf("Initializing cmptype...  ");  fflush(stdout);
  92.     Vpackage->s.s_dbind = user_package;
  93.     fasl_data = read_fasl_data("../cmpnew/cmptype.o");
  94.     init_cmptype(NULL, 0, fasl_data);
  95.     printf("\n");  fflush(stdout);
  96.     printf("Initializing cmpbind...  ");  fflush(stdout);
  97.     Vpackage->s.s_dbind = user_package;
  98.     fasl_data = read_fasl_data("../cmpnew/cmpbind.o");
  99.     init_cmpbind(NULL, 0, fasl_data);
  100.     printf("\n");  fflush(stdout);
  101.     printf("Initializing cmpblock...  ");  fflush(stdout);
  102.     Vpackage->s.s_dbind = user_package;
  103.     fasl_data = read_fasl_data("../cmpnew/cmpblock.o");
  104.     init_cmpblock(NULL, 0, fasl_data);
  105.     printf("\n");  fflush(stdout);
  106.     printf("Initializing cmpcall...  ");  fflush(stdout);
  107.     Vpackage->s.s_dbind = user_package;
  108.     fasl_data = read_fasl_data("../cmpnew/cmpcall.o");
  109.     init_cmpcall(NULL, 0, fasl_data);
  110.     printf("\n");  fflush(stdout);
  111.     printf("Initializing cmpcatch...  ");  fflush(stdout);
  112.     Vpackage->s.s_dbind = user_package;
  113.     fasl_data = read_fasl_data("../cmpnew/cmpcatch.o");
  114.     init_cmpcatch(NULL, 0, fasl_data);
  115.     printf("\n");  fflush(stdout);
  116.     printf("Initializing cmpenv...  ");  fflush(stdout);
  117.     Vpackage->s.s_dbind = user_package;
  118.     fasl_data = read_fasl_data("../cmpnew/cmpenv.o");
  119.     init_cmpenv(NULL, 0, fasl_data);
  120.     printf("\n");  fflush(stdout);
  121.     printf("Initializing cmpeval...  ");  fflush(stdout);
  122.     Vpackage->s.s_dbind = user_package;
  123.     fasl_data = read_fasl_data("../cmpnew/cmpeval.o");
  124.     init_cmpeval(NULL, 0, fasl_data);
  125.     printf("\n");  fflush(stdout);
  126.     printf("Initializing cmpflet...  ");  fflush(stdout);
  127.     Vpackage->s.s_dbind = user_package;
  128.     fasl_data = read_fasl_data("../cmpnew/cmpflet.o");
  129.     init_cmpflet(NULL, 0, fasl_data);
  130.     printf("\n");  fflush(stdout);
  131.     printf("Initializing cmpfun...  ");  fflush(stdout);
  132.     Vpackage->s.s_dbind = user_package;
  133.     fasl_data = read_fasl_data("../cmpnew/cmpfun.o");
  134.     init_cmpfun(NULL, 0, fasl_data);
  135.     printf("\n");  fflush(stdout);
  136.     printf("Initializing cmpif...  ");  fflush(stdout);
  137.     Vpackage->s.s_dbind = user_package;
  138.     fasl_data = read_fasl_data("../cmpnew/cmpif.o");
  139.     init_cmpif(NULL, 0, fasl_data);
  140.     printf("\n");  fflush(stdout);
  141.     printf("Initializing cmplabel...  ");  fflush(stdout);
  142.     Vpackage->s.s_dbind = user_package;
  143.     fasl_data = read_fasl_data("../cmpnew/cmplabel.o");
  144.     init_cmplabel(NULL, 0, fasl_data);
  145.     printf("\n");  fflush(stdout);
  146.     printf("Initializing cmplam...  ");  fflush(stdout);
  147.     Vpackage->s.s_dbind = user_package;
  148.     fasl_data = read_fasl_data("../cmpnew/cmplam.o");
  149.     init_cmplam(NULL, 0, fasl_data);
  150.     printf("\n");  fflush(stdout);
  151.     printf("Initializing cmplet...  ");  fflush(stdout);
  152.     Vpackage->s.s_dbind = user_package;
  153.     fasl_data = read_fasl_data("../cmpnew/cmplet.o");
  154.     init_cmplet(NULL, 0, fasl_data);
  155.     printf("\n");  fflush(stdout);
  156.     printf("Initializing cmploc...  ");  fflush(stdout);
  157.     Vpackage->s.s_dbind = user_package;
  158.     fasl_data = read_fasl_data("../cmpnew/cmploc.o");
  159.     init_cmploc(NULL, 0, fasl_data);
  160.     printf("\n");  fflush(stdout);
  161.     printf("Initializing cmpmap...  ");  fflush(stdout);
  162.     Vpackage->s.s_dbind = user_package;
  163.     fasl_data = read_fasl_data("../cmpnew/cmpmap.o");
  164.     init_cmpmap(NULL, 0, fasl_data);
  165.     printf("\n");  fflush(stdout);
  166.     printf("Initializing cmpmulti...  ");  fflush(stdout);
  167.     Vpackage->s.s_dbind = user_package;
  168.     fasl_data = read_fasl_data("../cmpnew/cmpmulti.o");
  169.     init_cmpmulti(NULL, 0, fasl_data);
  170.     printf("\n");  fflush(stdout);
  171.     printf("Initializing cmpspecial...  ");  fflush(stdout);
  172.     Vpackage->s.s_dbind = user_package;
  173.     fasl_data = read_fasl_data("../cmpnew/cmpspecial.o");
  174.     init_cmpspecial(NULL, 0, fasl_data);
  175.     printf("\n");  fflush(stdout);
  176.     printf("Initializing cmptag...  ");  fflush(stdout);
  177.     Vpackage->s.s_dbind = user_package;
  178.     fasl_data = read_fasl_data("../cmpnew/cmptag.o");
  179.     init_cmptag(NULL, 0, fasl_data);
  180.     printf("\n");  fflush(stdout);
  181.     printf("Initializing cmptop...  ");  fflush(stdout);
  182.     Vpackage->s.s_dbind = user_package;
  183.     fasl_data = read_fasl_data("../cmpnew/cmptop.o");
  184.     init_cmptop(NULL, 0, fasl_data);
  185.     printf("\n");  fflush(stdout);
  186.     printf("Initializing cmpvar...  ");  fflush(stdout);
  187.     Vpackage->s.s_dbind = user_package;
  188.     fasl_data = read_fasl_data("../cmpnew/cmpvar.o");
  189.     init_cmpvar(NULL, 0, fasl_data);
  190.     printf("\n");  fflush(stdout);
  191.     printf("Initializing cmpvs...  ");  fflush(stdout);
  192.     Vpackage->s.s_dbind = user_package;
  193.     fasl_data = read_fasl_data("../cmpnew/cmpvs.o");
  194.     init_cmpvs(NULL, 0, fasl_data);
  195.     printf("\n");  fflush(stdout);
  196.     printf("Initializing cmpwt...  ");  fflush(stdout);
  197.     Vpackage->s.s_dbind = user_package;
  198.     fasl_data = read_fasl_data("../cmpnew/cmpwt.o");
  199.     init_cmpwt(NULL, 0, fasl_data);
  200.     printf("\n");  fflush(stdout);
  201.  
  202.     Vpackage->s.s_dbind = user_package;
  203. }
  204.